;Universidad del Valle de Guatemala
;Algoritmos y Estructa de Datos
;Investigacion Corta 3
;Integrantes:
;	Jennifer Valdez 10189
;	Gustavo Sanchez 10313
;	Sergio Molina   10256

;funciones
(defun multiplicar(x y) (* x y))
(defun sumar(x y) (+ x y))
(defun restar(x y) (- x y))
(defun fact(x)
	(if (<= x 1)
		1
	 (* x (fact(- x 1)))
	)
)
;instruccioens
(print "+-----------------------+")
(print "|  Investigacion No. 3  |")
(print "+-----------------------+")
(print "                         ")
(print "+-----------------------+")
(print "| Instrucciones         |")
(print "+-----------------------+")
(print "| Para multiplicar poner|")
(print "| -> (multiplicar x y)  |")
(print "| Para sumar poner:     |")
(print "| -> (sumar x y)        |")
(print "| Para restar poner:    |")
(print "| -> (restar x y)       |")
(print "| Para obtener el       |")
(print "| factorial poner:      |")
(print "| -> (fact x)           |")
(print "|                       |")
(print "| x, y debe sustituirlos|")
(print "| por los numeros que   |")
(print "| usted desee.          |")
(print "+-----------------------+")